
clear
use "C:\Users\dmac9\Dropbox\R&R SSQ Class Attitudes and Inequality\Merged 2012 and 2013 ANES Data.dta"

svyset [pweight=weight_full], strata(strata_full) psu(psu_full) singleunit(missing)

*Histograms*
hist ft_lower_minus_upper_class, percent
hist pk_factor01, percent

* 1) Welfare 
svy: oprobit welfare_expend3 c.ft_lower_minus_upper_class##c.pk_factor01 ///
pid7 age female white Income college married own_home online_mode 

outreg2 using mods.tex, dec(3) replace

margins, dydx(ft_lower_minus_upper_class) at(pk_factor01=(0(.1)1)) predict(outcome(3)) 
marginsplot, yline(0)

* 2) Education
svy: oprobit education_expend3 c.ft_lower_minus_upper_class##c.pk_factor01 ///
pid7 age female white Income college married own_home online_mode 

outreg2 using mods.tex, dec(3) append

margins, dydx(ft_lower_minus_upper_class) at(pk_factor01=(0(.1)1)) predict(outcome(3)) 
marginsplot, yline(0)

* 3) Health
svy: oprobit health_expend3 c.ft_lower_minus_upper_class##c.pk_factor01 ///
pid7 age female white Income college married own_home online_mode 

outreg2 using mods.tex, dec(3) append

margins, dydx(ft_lower_minus_upper_class) at(pk_factor01=(0(.1)1)) predict(outcome(3)) 
marginsplot, yline(0)

* 4) Social Security
svy: oprobit ss_expend3 c.ft_lower_minus_upper_class##c.pk_factor01 ///
pid7 age female white Income college married own_home online_mode 

outreg2 using mods.tex, dec(3) append

margins, dydx(ft_lower_minus_upper_class) at(pk_factor01=(0(.1)1)) predict(outcome(3)) 
marginsplot, yline(0)

* 5) Tax Millionaires
svy: probit tax_millionaires2 c.ft_lower_minus_upper_class##c.pk_factor01 ///
pid7 age female white Income college married own_home online_mode 

outreg2 using mods.tex, dec(3) append

margins, dydx(ft_lower_minus_upper_class) at(pk_factor01=(0(.1)1))  
marginsplot, yline(0)

* 6) Increase taxes on people making over $250K to reduce the deficit
svy: probit increase_250k_taxes c.ft_lower_minus_upper_class##c.pk_factor01 ///
pid7 age female white Income college married own_home online_mode 

outreg2 using mods.tex, dec(3) append

margins, dydx(ft_lower_minus_upper_class) at(pk_factor01=(0(.1)1))  
marginsplot, yline(0)

* 7) Increase taxes on corporations to reduce the deficit
svy: probit increase_corporate_taxes c.ft_lower_minus_upper_class##c.pk_factor01 ///
pid7 age female white Income college married own_home online_mode 

outreg2 using mods.tex, dec(3) append

margins, dydx(ft_lower_minus_upper_class) at(pk_factor01=(0(.1)1))  
marginsplot, yline(0)

* 8) Factor score 
svy: reg latent_govt_factor01 c.ft_lower_minus_upper_class##c.pk_factor01 ///
pid7 age female white Income college married own_home online_mode

outreg2 using mods.tex, dec(3) append

margins, dydx(ft_lower_minus_upper_class) at(pk_factor01=(0(.1)1))  
marginsplot, yline(0)

**************************************************************************************************************************************************************
**************************************************************************************************************************************************************
